(post-mail-send-it): Use mail-sendmail-undelimit-header.

diff --git a/lisp/mail/mailpost.el b/lisp/mail/mailpost.el
index e6c70cb13a38464b8d05d56dcb0181154b39ebf8..91998a1bb722e337837bc6a033d7e2fc69cb9629 100644 (file)
--- a/lisp/mail/mailpost.el
+++ b/lisp/mail/mailpost.el
@@ -43,10 +43,7 @@ site-init."
          (or (= (preceding-char) ?\n)
              (insert ?\n))
          ;; Change header-delimiter to be what post-mail expects.
-         (goto-char (point-min))
-         (search-forward (concat "\n" mail-header-separator "\n"))
-         (replace-match "\n\n")
-         (backward-char 1)
+         (mail-sendmail-undelimit-header)
          (setq delimline (point-marker))
          (if mail-aliases
              (expand-mail-aliases (point-min) delimline))